home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / amos / amoslist-0295.lzh / AMOSLIST / text0261.txt < prev    next >
Encoding:
Text File  |  1995-03-01  |  441 b   |  23 lines
  1. Modify to suit your needs, but it works for me...
  2.  
  3. Procedure CAPTURE_ANIM[FILENAME$]
  4.    Screen Open 0,320,200,64,Lowres
  5.    F$="Amos_Pro:"
  6.    Open In 1,F$+FILENAME$
  7.    MEMORY=Frame Length(1,999)
  8.    NOF=Frame Load(1 To 10,999)
  9.    Close 1
  10.    FLAG=Frame Play(10,1,0)
  11.    Double Buffer 
  12.    For T=2 To NOF
  13.       FLAG=Frame Play(FLAG,1)
  14.       Screen Swap 
  15.       Wait Frame Param+1
  16.       Get Bob 0,T-1,145,63 To 206,116
  17.    Next T
  18.    End 
  19. End Proc
  20.  
  21.  
  22.  
  23.